home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 14 / Hot Mix 14.iso / HTML / vendors / finesse / examples / sh / jump < prev    next >
Text File  |  1996-06-27  |  3KB  |  114 lines
  1. #! /bin/sh
  2. # FINESSEAPPLICATIONKEY sHVhNJVqgEeqk
  3. #
  4.  
  5. # Finesse Initialisation
  6. # ----------------------
  7.  
  8. . ${FINESSEPATH-/usr/local/finesse}/fsshinit
  9.  
  10. trap "Fsclose" 0 1 2 3 13 15               
  11.  
  12. jumpwin="                                      
  13.   FsWindow        -name jumpwin
  14.                   -title Jump!;
  15.   FsSeparator -name sep -line no;
  16.  
  17.   FsLabel -name head -label parameters:;
  18.  
  19.   FsForm -name form1 -nrows 4 -packing equal;
  20.  
  21.   FsLabel -parent form1 -label '';
  22.   FsLabel -parent form1 -label feet;
  23.   FsLabel -parent form1 -label shanks;
  24.   FsLabel -parent form1 -label thighs;
  25.   FsLabel -parent form1 -label trunk;
  26.   FsLabel -parent form1 -label arms;
  27.  
  28.   FsLabel -parent form1 -label length[m];
  29.   FsText -parent form1 -var var1; 
  30.   FsText -parent form1 -var var2;
  31.   FsText -parent form1 -var var3;
  32.   FsText -parent form1 -var var5;
  33.   FsText -parent form1 -var var6;
  34.  
  35.   FsLabel -parent form1 -label mass[kg];
  36.   FsText -parent form1 -var var7;
  37.   FsText -parent form1 -var var8;
  38.   FsText -parent form1 -var var9;
  39.   FsText -parent form1 -var var10;
  40.   FsText -parent form1 -var var11;
  41.  
  42.  
  43.   FsLabel -parent form1 -label inertia[kgm2];
  44.   FsText -parent form1 -var var12;
  45.   FsText -parent form1 -var var13;
  46.   FsText -parent form1 -var var14;
  47.   FsText -parent form1 -var var15;
  48.   FsText -parent form1 -var var16;
  49.  
  50.   FsSeparator -name sep -line no;
  51.  
  52.   FsLabel -name head -label environment:;
  53.   FsForm -name form2 -orientation horizontal;
  54.   FsOptionMenu -name option1 -var opt1=ja -parent form2
  55.                -label 'friction:   ' -items 'yes no';
  56.   FsLabel -name elabel -label '' -parent form2;
  57.   FsOptionMenu -name option1 -var opt1=nein -parent form2
  58.                -label 'damping:   ' -items 'yes no';
  59.  
  60.   FsSeparator -name sep -line no;
  61.  
  62.   FsLabel -name head -label 'fuzzy controller:';
  63.   FsPushButton -name pb1 -label 'fuzzy rules';
  64.   FsPushButton -label operators;
  65.   FsPushButton -label 'fuzzy sets';
  66.  
  67.   FsSeparator -name sep -line no;
  68.  
  69.   FsLabel -name head -label integration:;
  70.   FsForm -name form5 -orientation horizontal -packing equal;
  71.   FsText -label time[s]: -var text1 -parent form5 -name sel;
  72.   FsText -label 'step size[s]:' -var text2 -parent form5 -name sel;
  73.   FsForm -name form6 -orientation horizontal -packing equal;
  74.   FsText -label 'relative error:' -var text3 -parent form6 -name sel;
  75.   FsText -label 'absolute error:' -var text4 -parent form6 -name sel;
  76.  
  77.   FsSeparator;
  78.  
  79.   FsForm -packing tight -name form7;
  80.  
  81.   FsRadio         -label 'animation:'
  82.           -items 'yes no' -name radio
  83.                   -var scr=yes -parent form7;
  84.  
  85.   FsSeparator -name separator -line soliddouble;
  86.  
  87.   FsPushButton -name pb2 -label 'simulation start';
  88.   FsPushButton -type x;
  89.   FsPushButton -label exit;
  90. "
  91.  
  92. # Begin Finesse dialog, open input window
  93. # ---------------------------------------
  94.  
  95. Fsopen "$@"                                
  96.  
  97. Fsdisplay -w "$jumpwin" -m "Multi-Body System with Fuzzy Control"
  98. if [ "$fsbutton" != "o" ] ; then exit 0; fi
  99.  
  100. # more statements ...
  101. #
  102.  
  103. Fsclose
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.